(frame-initialize): Handle reverseVideo x-resource.

diff --git a/lisp/frame.el b/lisp/frame.el
index 4e7581e3b76e1497805bda70d8f513970ee59134..ab41eb396214e85f930e2bf7d6c478d5b8f2a496 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -111,7 +111,9 @@ These supersede the values given in `default-frame-alist'.")
                    (frame-remove-geometry-params initial-frame-alist))
              ;; Handle `reverse' as a parameter.
              (if (cdr (or (assq 'reverse initial-frame-alist)
-                          (assq 'reverse default-frame-alist)))
+                          (assq 'reverse default-frame-alist)
+                          (cons nil
+                                (x-get-resource "reverseVideo" "ReverseVideo"))))
                  (let ((params (frame-parameters frame-initial-frame)))
                    (modify-frame-parameters
                     frame-initial-frame